home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 30 / Tiger_Disk_030_1996-09_Tiger-Crew-Disk_de_Side_B.d64 / rate mal ! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  76 lines
  1. 10 poke53280,0:poke53281,0:poke646,2:print"[147]"
  2. 20 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  3. 21 print"[180]                                      [170]";
  4. 22 print"[180]         [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]         [170]";
  5. 23 print"[180]         [194]    rate mal!!    [194]         [170]";
  6. 24 print"[180]         [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]         [170]";
  7. 25 print"[180]                                      [170]";
  8. 26 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  9. 50 n=7:t=0
  10. 55 dima(n):forj=1ton:a(j)=j:nextj:
  11. 60 print"[156]tipp mal 'ne zahl ein!      (1 bis 7)":inputs$:s=val(s$):s=s/7
  12. 70 fori=1ton:q=(s+3.14159265)^3:s=q-int(q)
  13. 80 j=int(s*n+1):p=a(i):a(i)=a(j):a(j)=p:next i
  14. 90 print"[129]wieviel fragen willst du?   ( max";n;")":inputm:print
  15. 100 ifm>nthen90
  16. 110 fori=1tom:print"[158]frage nr. ";i:j=a(i):print
  17. 120 if j= 7then130
  18. 130 onj gosub230,300,440,510,580,650,850  :goto150
  19. 150 print"[152]waehle antwort a, b, c oder d";:inputy$:
  20. 160 ifz$<>y$thenprint"falsche antwort!":goto180:
  21. 170 print"        r i c h t i g ![146]":d=d+1:print
  22. 180 print"[149]   bin gespannt, wie gut du bist "
  23. 190 print:print:nexti
  24. 200 print"  na ja,          ";d;"richtige":print
  25. 210 print"[155]  und             ";m-d;"falsch!":print
  26. 220 print" das gesamtergebnis=  ";d/(i-1)*100;"%":end
  27. 230 z$="c":
  28. 240 print"[154] kaese ist ="
  29. 250 print"[153]a: ein odeur par excellence"
  30. 260 print"b: ein pendant zum faulen ei"
  31. 270 print"c: synonym fuer 'so ein mist'"
  32. 280 print"d: die hauptstadt von holland"
  33. 290 return
  34. 300 z$="b"
  35. 310 print"[154] zitronen sind ="
  36. 320 print"[153] a: antike ungeheuer"
  37. 330 print"b: handelsware der pechvoegel"
  38. 340 print"c: aus dem lauf gezogene patronen"
  39. 350 print"d: angefangene schmetterlinge"
  40. 360 return
  41. 440 z$="d"
  42. 450 print"[154] ein 'nichts' ist ="
  43. 460 print"[153]a: unendlichkeit zum 'reinfallen"
  44. 470 print"b: ein fehlerhaftes maedchen"
  45. 480 print"c: geruchloser knoblauch"
  46. 490 print"d: ein luftballon ohne pelle"
  47. 500 return
  48. 510 z$="b"
  49. 520 print"[154] eine klapperschlange ist =":
  50. 530 print"[153]a: eine art vogelscheuche"
  51. 540 print"b: 'ne schlange im schnee"
  52. 550 print"c: handwerks-zubehoer"
  53. 560 print"d: 'ne lange reihe klappern"
  54. 570 return
  55. 580 z$="c"
  56. 590 print"[154] netze sind = "
  57. 600 print"[153]a: was zum ueberziehen"
  58. 610 print"b: produkte von spinnern"
  59. 620 print"c: zusammengeknotete loecher"
  60. 630 print"d: verkleidete fallstricke"
  61. 640 return
  62. 650 z$="c"
  63. 660 print"[154] knete ist = "
  64. 670 print"[153]a: gebrauchter kaugummi"
  65. 680 print"b: was man nie genug hat"
  66. 690 print"c: gehirn-surrogat"
  67. 700 print"d: schoepfungs-grundstoff"
  68. 710 return:
  69. 850 z$="c"
  70. 860 print"[154] ein magnet ist ="
  71. 870 print"[153]a: ein zugpferd-verwandter"
  72. 880 print"b: teil des nordpols"
  73. 890 print"c: 'nein'; z. b. in bayern"
  74. 900 print"d: fast ein grosser herr"
  75. 910 return
  76.